% 'Dim intsubid, cname, cid, sname, sid, strQuote, str, qt, qp, answers, cat_id, intForumId, ctr Dim cname, cid, sname, sid, strQuote, str, qt, qp, cat_id, intForumId LanguageParser.IncludeSection "postform" LanguageParser.IncludeKey "topic", "Thread" LanguageParser.IncludeKey "topic", "Location" LanguageParser.IncludeKey "topic", "Registred" LanguageParser.IncludeKey "topic", "Warnings" '/// Check if user is logged in if not inside <> 0 then response.redirect("default.asp") %> <% '/// Post preview if varSubmit = langPreview then %>
<% =langAuthor %> | <% =langThread %> |
<%=username%> <% strSQL = "SELECT mavatar, mplace, mreggad, mwarnings,msign FROM aspbb_members WHERE mid={0}" dim arrPreview objDAL.GetRows arrPreview, 1, strSQL, array(userid) If len(arrPreview(0, 0)) <> 0 then Response.Write "" End if response.write " <% =langLocation %>: <% =arrPreview(1, 0) %> <% =langRegistred %>: <% =FormatDateTime(uTimeStamp(arrPreview(2, 0)), vbshortdate) %> <% =langwarnings %>: <% =arrPreview(3, 0) %> |
|
<% =LanguageParser.GetKey("errors", "ErrorGeneral") %> |
<% =LanguageParser.GetKey("errors", "ErrorGeneralLong") %> |
- |